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DPAE DEC/Xll SYSTEM EXERCISER MODULE 
XDPAEO.Pll l2-OCt»78 12J03 



MACYll 30&<1052) 12~OCT-78 16J29 PAGE 6 



050 



i 



000030' 
000036' 

000040; 

000044' 



0000 



000110 
000112' 
000114' 
000116' 



1747.- 

000440 

240 

000 

000001 

ooogoo 

OOQOOO 
QOOOOO 
000000 

140000 

OOOOQO 
002000 
000000 
000000 
000000 

888888 

Q50000 

000000 

000000 
000000 
000000 
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oogooo 

000000 
000000 
OOQOOO 
000000 
000000 

000000 

000000 
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000000 

000246' 
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000000 



.LIST SEQ^BIH 

? SET UP VECTOR (RETURN ADDRESS{PC)) PC = INTR SERV. AREA. 

lOMOD <DPAE >#174770,44Q<;5,, 4,2000, 30 
MODULE 140000,6pAE ,174776,4^0,5, ,52000, 30 
.TITLE DPAE DEC/Xll SYSTEM EXERCISER NODULE 



} 


.°§Pil.il«!!°! 




% ****** 


begin: 




modnam: 


-ASCII /DPAE / 


XFLAG: 

aodr: 


VECTORI 


440+0 


BRIJ 
BR2: 


.BYTE PRTY5+0 


.BYTE PRTY+0 


DVIDl: 


♦ 


SRI! 


OPEN 


SR2: 


OPEM 


SR3: 


OPEN 


SR4: 


OPEN 


.**«««***««**&«**»****& 


STAT: 


140000 


IN it: 


START 


spoint: 


NODSP 


PASCNT: 





ICQNT: 


2000 


icount: 





SOFCNT! 




hrdcnt: 





SOFPAS: 




HRDPAS: 





SYSCNT: 





RANNUM: 





CONFIG: 









RES2: 





SVRO: 


OPEN 


SVRI: 


OPEN 


SVR2: 


OPEN 


SVR3: 


OPEN 


SVR4: 


OPEN 


SVR5: 


OPEN 


SVR6: 


OPEN 


csra: 


OPEN 


sbadr: 




acsr: 


OPEN 


wasadr: 




astat: 


OPEN 


ERRTYP: 




asb: 


OPEN 


AWAS: 


OPEN 


rstrt: 


RESTRT 


WDTO: 


OPEN 


hdfr: 


OPEN 



ft«$r^«««r«Aftfti^«r««;«««tj!t«^j^«ft&ft«rft 



********* »****«** 



?MODULE NAME. 

JUSED TO KEEP TRACK OF HBUFF USAGE 

;1ST DEVICE ADDR. 

;1ST DEVICE VECTOR. 

;1ST OR LEVEL. 

;2ND BR LEVEL. 

;DEVICE INDICATOR 1. 

;SMITCH REGISTER 1 

;SWITCH REGISTER 7 

;S«ITCH REGISTER 

ISHITCH REGIS"-'- 

!r»* *********** 

;STATUS WORD. 

;M0DULE START ADDR. 

;MCDULE STACK POINTER. 

;PASS COUNTER. 

;# OF ITERATIONS PER PASS=2000 

?LOC TO COUNT ITERATIONS 

;L0C to SAVE TOTAL SOFT ERRORS 

;LQC TO SAVE TOTAL HARD ERRORS 

;LOC TO SAVE SOFT ERRORS PER PASS 

jLOC to SAVE HARD ERRORS PER PASS 

h of sys errors accumulated 

jholds random « when rand macro is called 

;reserved fob monitor use 

;reserved for monitor use 

;reserved for monitor use 

;loc to save ro. 

;LDC TO SAVE Rl. 

;LOC TO SAVE R2. 

;LOC TO SAVE R3. 

JLDC TO SAVE R4. 

;L0C to SAVE R5. 

;LOC TO SAVE R6. 

;ADDR OF CURRENT CSR. 

;ADDR OF GOOD DATA, OR 

;CONTENTS OF CSR. 

;ADDR OF BAD DATA, OR 

;STATUS REG CONTENTS. 

;TYPE OF ERROR 

;EXPECTED DATA. 

;ACTUAL DATA. 

;RESTART ADDRESS AFTER END OF PASS 

;WCRDS TO MEMORY PER ITERATION 

?I^GRDS FROM MEMORY PER ITERATION 
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I 



000120' 
000122- 



000224' 
000232' 
000240' 

000246' 
000252- 
54' 

ir- 

101 

-OOsXJ' 

000306 • 
000312' 
" 16' 
4' 



000000 
000030 
000040 



000 
000 



w- 



000340' 
000342' 
000346- 
000350* 
000354' 
000356' 
000362- 
000364- 
000370' 
000374' 

000376' 
000400' 
000404- 
000410- 



000412- 012767 
000420- 012703 



000424' 005023 



000016 
000016 
000016 

177542 

000000- 

002364 

002362 

002360 

002356 

177510 

177476 

002470- 

000001 

002300 

002316 

177444 

000006 

177430 

000006 
002234 



000010 
000014 



000426- 
000432- 



mm 



177662 
177656 
177652 



000157 002214 
002130' 



INTR: OPEN 
IDNUM: 30 

.REPT SPSIZ 

.HLIST 

.WRD 

.LIST 

.ENDR 

MQDSP: 

.****************»** ft* **it*****a* 

START: MOV »16,feDT0 
MOV il6,WDFR 
NOV #16,INTR 



;# OF INTERRUPTS PER ITERATION 
iKSSR^g I2?H"fICATI0N NUMBER=30 
JMODULE STACK STARTS HERE. 



RESTRT: 



002304 
177462 2$: 



4$: 



TST 

BHE 

ENDS, 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 

INC 

MOV 

MOVB 

TSTB 

ADD 

HOV 

MOVB 

TSTB 

ADD 

ASLB 

BCS 

BR 
ADD 
ADD 
BR 



DVIDl 

BEGIN 
TRCNT 
RCCNT 
DPDN 
NO. DP 

DVIDl, DVIDA 
VECTOR, Rl 
#LINKER,R2 
|l,PNTR 
PNTR,DVID1 

NO. DP 
R2,{R1>+ 

lit" 

R2^(R1)+ 
BRl,(Rl)+ 

PN^R 
STARTl 

S10,R1 



******* *********«**S****«,**jtA*j^**^^^^ 

;16 MROS TO MEM 
n6 WORDS FROM 
;16 INTERRUPTS 

;CHECK ANY DPN'S ON LINE 

INITIALIZE TRANSMIT COUNT 
INITIALIZE RECEIVE COUNT 
;N0. DP'S THAT ARE DONE 
;N0. DP'S SELECTED 

'.^S^LI§..T"'S DPll ON LINE 
'SS..S2 SP^SE DP ADDR & TRY AGAIN 
;COUNT NO. DP'S SELECTED 
'§SI W VECTOR RETURN ADDRESS(RCV) 

JOPDATE NEW LINK ADDRESS 

'?il HK VECTOR RETURN ADDRESS (XMT) 

ns?R:!''pSfs;?g -"""" ^''"' 

;yPDATE NEW LINK ADDRESS 
<§lL"Sc^9ioS?S DEVICE COMPARE 
/H*VE WE TESTED FOR ALL ON LINE 

?NOT DONE GO DO MORE 

'.^ES^IP "fO ^^^ VECTOR ADDRESS 

?UPDATE TQ^NEW LINK ADDRESS 

;G0 TEST FOR NEXT DEVICE ON LINE 



; THIS 
STARTl: 



IS: 



CODE SILL CLEAR ALL OF THE KRITE BUFFER AREA 



»111.,CNT80 

#DPLIN,R3 

(R3) + 
CNT80 
1$ 



THIS 
BEEN 



CLR 
DEC 

3NE 



CODE WILL SELECT MHICH LINES 
SELECTED FOR TEST & TRANSMIT 



;COUNT REQUIRED TO GO THRU 
'5tV„i8 DATA STORAGE BUFFER 
;STARTING ADDRESS OF 
?^pATA BUFFER LOCATIONS. 
JCLEAR DATA BUFF REG 
;ARE there MORE TO CLEAR? 
;N0 go BACK & DO THE REST 



,<l:8>) HAVE 
iYNC TO START 
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1 TESTING ALL LIMES. 



002200 INTJ 



MOV 
MOV 
MOV 
HOV 
MOV 
MOV 
MOV 

ADD 
ADD 
DEC 
BNE 



START2: CLR 

HOV 
MOV 
ADD 
MOV 
MOV 
MOV 



mp 



r- mm 
"'- mm 

000666- ''*^°'"' 



-.0660 
000664 



002004 
000312 



177770 
001752 
000006 



D$S 



C$: 



BIT 
BEQ 
MOVB 

MOV 



ADD 
TST 
CCC 
ASLB 
BCC 
MOV 
KCKOFF: bit 
BEQ 
BIS 



CLRB 

UPDAT: ADD 

ADD 

CCC 

ASLB 

BCC 

WHDOW: MOV 

IS: CLR 



ISSUES?" 



&DDR,R1 
ADDR,R2 

ILisYMl+l^RO 
l^PMfR 
PMTR^DVIDl 
#l#(RO) 
#10020, (R3) 

mi 

PHTR 

#105, (Rl) 

TSYMC,3(Rl) 
#312,tR2) 



lltg" 



3(R2) 
|-10,R1 
1-10, R2 

PNTR 
KCKOFF 



ISET^CJONT VALUE TO NUMBER OF POSSIBLE DEVICES 
;R2=DVAD1 ADDR. 



lir 



;LPE BUFFER POINTER 

jSfART OF LIHE BUFF 

;DVADX~DgVICE ADOR. 

jBUFF PQINTBR HAS ST 

)BUFF STORAGE 

lOPDATE 

;OPDATE 

|CMf DOHN 

)NOT DOME GO BACK FOR MORE 



jclear mo. of line tested 

;reg. 

;get device address 

;xht csr address in r2 

;R2=XMTCSR REGISTER I74XX4 

;SET UP RO TO POINT TO LHSYN LCC. 

;SET PNTR REG POIMTER TO 

l«Ml DEVICE ON LINE 

JTBST IS THIS DEVICE ON LINE 

;Np GO UPDATE ADDRESS 

jPIiACE SYNC COOHT INTO HIGH 

5byte LNSYN X 

'PSy**!. =16^HIGH BYTE FOR XMT 

;LOM BYTE FOR RCV 

fHES^P LNSYN X POINTER 

>yPDATE LNCNT X POINTER 

;CLEAR CARRY BIT (CLR FOR TEST) 

;HAS 8 DPll-S BEEN INITIALIZED 

j!!iw'=Po?i5?L=" "'' ''^" ■"■ 

;IS THIS LIME OH 
;G0T UPDATE ADDRESS 

IFSTRIP^SYNC^^^'""'*^" "°^^' 

;LOAD SYNC BUFFER HITH SYHC CHAR. 

INITIALIZE XMT STATUS 

;7=D0NE 

;6=INTR ENABLE 

;3=XMT SYHC ON INTR 

;l=IDLE SYNC 

;CLEAR SYNC EXT 

'SSSlIi ^^l CSR DEVICE ADDRES 

;UPOATE XMT CSR DEVICE ADDRES 

;CLEAR CONDITION CODES 

;MgVE POINTER FOR NEXT TEST 

?GQ_.EHABLE NEXT LINE 

;SET UP COUNT FOR NO OF WAIL LOOPS 

;CLEAR HAIT LOOP COUNTER 
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3$: 



4$: 
BS: 



BREAKS, BEGIN 

BREAKS, BEGIN 

CMP 

BGT 

CMP 

OLE 

DEC 

BNE 

DEC 

BNE 

JMP 



|l6,TRCN? 
|16,RCCNT 






(IIHPORARY RETURN TO MONITOR 

|THEN CONTINUE AT NEXT INSTRUcflDN 

YES BRANCH TO HAIT FOR NEXT INTR. 

?? 

NO, START WAIT LOOP 



SEQ 0008 



ITER 
EXIT$, BEGIN 

NODVTS 
C$ 



SEQUENCE 



COM 
INC 

BR 



REPORT DEVICE FAILED TO INTERRUPT 

;EXIT TO MONITOR. MODULE i^AIT FUR INTERRUPT. 

?G0 BACK & UPDATE REG. 



TfOR SERVICE^^ ANSWER THE XMT INTERRUPT REQUEST 



002150' 
000004 



000200 
001106 



DPXMT: MOV 
MQV 
MOV 
MOV 
TSTB 
BMI 
MOVB 
JMP 






DPXHf 
#200, 



R0),R1 



! 



1 

ERSTT+KRO) 



;SAVE REG. ON STACK 
?SAVB REG. 1 ON STACK 
JRO HAS LINE NO. OFFSET 
;R1 = HO WITH OFFSET VALUE 
{||§S IE SS^E BIT SET 

;done is set cont. program 



000010 000004 

001634 

002170' 000006 
002170' 
000026 002170' 

002170' 



002211* 



C00003 
002171 



DPXMTl: BIT 
BNE 
INC 
MOVB 
INCB 
CMPB 
BNE 
INCB 

DPXMT3: DECB 

BNE 
DIS 
BR 

000006 DPXMT2: MOVB 

DECB 

BNE 

MOVB 

BIC 

xmtrtn: JMP 



jR0),6(R 

synI(ro) 



TRCNT 

LMSYHl 

LNSYNl,.. 

|26,LNSY 

DPXMT3 

LNSYNl(RO) 



000004 002171 
000010 000004 
000774 



LNCNTUKRO) 
XMTRTN 

XMTRTN 
i4*LNSYNl- 



;test for resync 
;branch if in sync 

JNUMBER OF CHAR. XMITED 
^ UR LUnT . 

'IF-,^Y£[C COUNT CHAR. (THIS IS DONE 
;S0 THAT STRIP SYNC CHAR. WILL 
;N0T MAKE AN ERROR) 
;CHECK HAVE WE XMTED 
;ALL 16 CHAR., THIS LINE 
;N0 RETURN TO MONITOR 
;SET RE-SYNC BIT 
;RETURN TO MONITOR. 
?XMT SYNC CHAR. (TSYNC) 
;DEC sync COUNTER 
wr,«x 'iPI IP SYNC COUNT NOT ZERO 



THIS CUDE WILL ANSWER THE RCV INTERRUPT 
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000004 
000004 



; REQUEST FOR SERVICE 



DPRCV: MOV 
MOV 
MOV 
MOV 
MOV 
TSTB 
BMI 
MOVB 
JMP 

DPRCVl: BIT 
BEQ 
DECB 
INCB 
BIG 
BIS 
BIC 
HOVB 
JMP 



BIT 

CLR 

hDO 

ADO 

MOVB 

CMPB 

BEQ 

INC 

INCB 

DECB 

BNE 

CLR 
CLR 
INC 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 



R2#-(SP) 

DVADi(R3)^R4 

DPRCVl 

|200#ERSTT(R3) 

RRUO 

#40000^4(R4> 

READ 

LHSYN1(R3) 

oo^JcrI) 



LHCNT 
#16001 



J.OUUUU« H 



(R3) 



R2 
VRFLG1(R3)#R2 

RCCNT 

VRFLGHR3) 

LNCNTICRB) 



000004 000000' 001420' 



^ 




;SAVE REG. 2 ON STACK 

;SAVE REG. 3 ON STACK 

JSAVE REG, 4 ON STACK 

IgET OFFSET 

'?! S R^ DEVICE CODE OFFSET VALUE 

IIS DONE SET 

JDONE SET !SERV DONE REQUEST 



;IS OVERRUN BIT SET 

JNO^DVERRON GO READ DATA 

/UPDATE XMT DATA 

K,!,^ " ACTIVE COUNT 

KLEAR OVERRUN ERROR BITS 

;SET RESYNC FLAG 

;CLEAR RECEIVE ACTIVE 



;IS DEVICE ACTIVE 

ia!lAg"iY¥f JSIeS"^ ^^*°^ 

;GET BYTE OFFSET 
;AD0R=DATA BUFF ADDR 
?DATA -> DATA BUFF 
;SKP IF SYNC BIT 



;N0 

; 



OF RCV-ED. CHAR. 



/Ef?J SSX^sf TRANSFERRED «LL 

iII!{'=DHrtgSSsgggi "^'^^'"•"= 
;CLEAR RCV. CSR REG. 
;CLEAR XMT. CSR. REG. 

li?SI?S ifSci°?5{ST"iR"=^^ °^ ''''■' ''-' 



£!2i£™I!!£5!!E!!L .„„->„_«„i.Q"^"^ "^ TO~CONTiNui"AT~CHCKrAND 



001326' 000167 000564 



RCVRTn: JMP 
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001360 
005267 

001560 
000730 



001232 
000000' 



000020 001214 CHCKl 
002210' 



CLR 

MOV 

MOV 

MOV 

TSTB 

BEQ 

JSR 

TSTB 

BEQ 

JSR 

TST 

TST 

DEC 

BNE 

TST 

BEQ 



R3 

!ERSTT,RO 
DVIDl/Rl 
8.,R2 
R0) + 

pLrcerr 
^r6,. 

pc^xterr 

(Ri) + 
(R3H 
R2 

DVIDA 



EXITS, BEGIN 
CLR Rl 
CLR R2 
CLR RO 



002130- 

001170 

001164 

000026 001154 

001146 



001136 
001126 



100777 

000010 001104 



IS: 



CHCK2: 



MOV 

CLR 
MOV 
TSTB 
BEQ 
CMP 
BR 
MOV 
MOV 
MOVB 
CUNTNU: CMPB 
BEQ 
CMPB 
BNE 
INC 
DEC 
BR 
INC 
DEC 
BNE 
INC 

MOV 
CMP 
BEQ 
BR 



#20, COUNT 

R2 
JLNCNT1,R1 

CH 



CHCK2 



1$: 



(R1)+,CR2)* 

P2/R0 

DPLIN(R2),R2 
(R2l,CHECKR 
CHECKR,(R2)+ 

ll^fCRECKR 

CHECKR 

R2 

CONTNU 

CHECKR 

COUNT 

CONTNU 

NODVTS 

00777, (Rl) 
lOfNODVTS 
ASS 
CHCKl 



li 



'511 yS.8Ef"SET FOR DEVICE ADDRESS 

l§i? SSftg|R'"gp*ggJfii iL^S "•"= "''"" 

?GET MAX. DEVICE COUNT 
nifL^f^PS.WORD ERROR INDICATED 
?BRANCH IF THIS REV STATUS HAS NO RRPOK 

;g0 report status error 

;test status word error indicated 

>BRANCH IF THIS XMTR STATUS HAS NIJ SRRfIR 
JUPDATE OFFSET POINTER 

;BRANCH IF NOT DONE 

iSf,YL.^^fc„^^'^ES COMPLETE THEIR XFRR'S??????????????????? 

;BRANCH TO CHECK DATA ROUTINE . r f f f f f f ( ( f f f f f f f e 

;EXIT to MONITOR. MODULE WAIT FfjR fNTEKRUPT. 
/ 

;CLEAR R0:H0 WILL BF 
?USED AS OFFSET 
;F0R COUNTING NO OF 
yCHAH. READ 
;CLR BUFF POINTER 



?R0 WILL HOLD LINE NO./? 

;R2=START ADDR. THIS LINE RUFF 

;GET FIRST CHAR. 

;CHECK DATA S INCR. POINTER 

;THIS WORD GCOD GO CHECK MORF 

JWAS IT STRIP CHAR. 

;N0 GO REPORT ERROR 

;YES UPDATE CHECHR 

;yPDATE DPLIN PUFFFR POINTER 

?Gg^BACK f. CHECK REAL DATA 

;SET UP FOR NEXT RYTE TEST 

;gNE MORE BYTE HAS BEEN TESTED 

JNOT DONE YET GO CHECK MORF. 

?THIS LINE DONE ADD 1 TO 

?N0. OF DEVICES TESTED 



;HIVE all LINES PEFN TESTED 
;G0 TO END PASS CODING 



001540' 012767 000023 176340 
001546' 104405 000000' GOOOOO 
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473 
474 
475 



478 



104403 
042767 



,554; 

570- id-.- 



000000' 

040000 

000000' 



001574' 
176236 



176122 
000011 

000000' 



,_-. 016067 
-.3012' 005302 
002 -'- 

go|o5_ 

002030' 005267 
002034' 005367 



002150- 

176070 

000620 
000612 
000602 



176164 
000000 




176122 
000000 



000377 002211' 



1$: 

text: 



2$: 



176066 ERRRT: 



MSGNS^BECIN^IS JASCII MESSAGE CALL WITH COMMON HEADER 
BIC 540000, STAT ;ABORTING SELECTION OF THIS MODULE 
EXITS, BEGIH ;EXIT TO MONITOR. MODULE WAIT FOR 

TEXT ;message pointer 

177777 ; " TERMINATOR 

.ASCIZ • DEVICE FAILED TO INTERRUPT DROPPING MODULE ' 



) 



TSTB 
CMPB 
BHE 
MOV 
• *&*« 

SOFER 

CMPB 
BNE 
MOV 
MOV 

HRDp 

IsTB 
MOVB 
RTS 



TSTB 
CMPB 

BNE 
MOV 



[o8'ro 






UPDATE OFFSET POINTER 
TEST FOR DATER OVER RUN ERROR 
BRANCH IF NOT OVER ?? RUN 
DATA OVERRUN 



JDATE OVER RUN 



«««»««« «t««««ft««« 



;TEST FOR FALSE INTERRUPT 

;BRANCH if NOT FALSE INTERRUPT ERROR 



|200,R0 

Ill^ERRTYP jiCLEGAL'iNTpRllPf" 

$,BEGIN,NULL 
*&**«**&******* 



|G|T_DEyiCE_ ADDRESS 



ft **** **** 



(R0) + 
#377,LfiCNTl{R3) 



;UPDATE OFFSET POINTER 
JABORT THIS DEVICE 
;RETURN TO CALL ROUTINE 



-{R0> ;UPDATE OFFSET POINTER 

#200, RO ;test for error 

Is ;BRANCH IF THIS IS NOT ERROR 

R1,CSRA ;GET DEVICE 
#lI,ERRTYP JILLEGAL INTERRUPT 

drlllr**** ft* *****«*«*«********«««* ****** 



fiRDERS, BEGIN, NOLL 
J **«********%**** 



****************** 



TSTB 
MOVB 
RTS 



MOV 

DEC 

MOVB 

INC 

MOVB 

INC 

DEC 



ft******* 



m- 



5UPDATE OFFSET 
LNCNT1+1{R3);AB0RT further TEST OF THIS DEVICE 
;RETURN TO CALL ROUTINE 



DVAD1(R0),CSRA 

R2 

{R2),AWAS 

CHECKR,ASB 

CHECKR 

COUNT 



;CSRA=LINE ADDR. 

JUPDATE POINTER TO DATA BUFF 

;BAD DATA BYTE 

JUPDATE POINTER TO DATA BUFF 

;GC0D data BYTE 

;UPOATE FOR NEXT TEST 

?ONE MORE BYTE HAS BEEN TESTED 
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*********«***««««««« 
fBEGIN 



6ater$ 

J ***** 



******* ******ft**ft**ftftftft**** 



********* A « 



restor: tst 



BNE 
IMC 



COUNT 



CONTNU 
NODVTS 



MOV 
CMP 
BEQ 
JMP 



#100777,(R1) 
#10,NODVtS 

CHCKl 



ENDITS, BEGIN 
JMP START 



/ARE^ME^DnKE CHECKING DATA ON 

iSiS OR DO, THE REST OF THIS LINE 
;YES THIS LINE DONE ADD 1 TO 
;N0DVTS>NO. OF LINES TESTED 

;HAVE ALL LINES BEEN TESTED 

;go to end PASS code 

;RETURN TO MONITOR 



'SIS^AL Ef«D OF ITERATION. 
;M0NIT0R SHALL TEST END OF PASS 
;ND GO DO ONE MOKE 



002106' 012601 

mnr- nmi 

002114' 000002 
002116' 012604 

mm- mm 



MOV 
MOV 
MOV 
RTI 



MOV 
MOV 
MOV 
MOV 
RTI 



(SP)+,R1 
{SPU,RO 
(SP)+,R5 



(SP)-i-,R4 
(SP)+,R3 
(SP)+,R2 
CSP)+,R5 



XMIT, REGISTER UPDATE 



RCV. REGISTER UPDATE 



002130' OOOQIO 
002150' 000010 
002170' 000010 

002210' 000010 

002230' 000010 



002250' 000010 



SYNC MORD STORAGE LOCATIONS (LINE SYNC <l:8>) 



DPLIN: 
DVADl: 
LNSYNl: 



.BLKW 
.BLKiiJ 
.BLKy 



LNCNTl: .BLKW 8. 
VRFLGl: .BLKW 8. 



?HIGH ByTE=SYNC COUNT NO. 
/LOW BYTE =BINARY WORD PATTERN 
'."IS".5X^'^='^0» XMTED INTERRUPTS 
;LpW BYTE = NO. RCV. INTERRUPTS 
;BYTE OFFSET VALUE FOR REIO 



;RECEIVE DATA 16 BYTES PER. BUFFER 



DPLINl: .BLKfe 8. 



?DP11 LINE «1 RECEIVE 
?DATA BUFFER 
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DPLINS: 

*'PLiH4: 

-PLIHS 

DPLIH6. 

DPLIM7: 

DPLIN8: 



0PLlH4: .BLK! 
DPLIfiS: .BLK] 
DPLIH6: .BLKI 



.BLKU 
.BLKH 

.BLKW 
.BLKN 



JLOW BYTE HAS 1ST CHAR 
;H|GH BYTE HAS 2ND CHAR. 
;DP11 LINE #2 RECEIVE 
"Pll LIN" ^ 



-INE 

LINE 

JDPll LINE 

^DPll LINE 

JDPll LINE 

;dpii line 



;dp 
;Dr 



w 



receive 

RECEIVE 
RECEIVE 
RECEIVE 
, RECEIVE 
18 RECEIVE 



^STORAGE OF STATUS TYPE OF ERROR 



SERVICE CODE FOR LINKING A PARTICULER DEVICE 
TO A COMMON XMT OR RCV SERVICE ROUTINE. 



000000 
013426 
000000 
000000 
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643 
644 
645 
646 
647 
648 
649 
650 
651 



002654- 

002656' 000000 
000001 



000000 
000000 

000000 
000000 
000000 
000000 
000000 



LINKER: 


JSR 

h 

JSR 

t 

h 

JSR 
JSR 
JSR 


R5,DPRCV 




R5/DPXMT 




R5/DPRCV 




R5^DPXHT 




R5,DPRCy 




R5,DPXMT 




RS^DPRCV 




R5^DPXMT 




RS^DPRCV 
R5,DPXHT 




3§R 
12 

it 

JSR 


R5/DPRCV 
RS^DPXMT 
R5,DPRCV 




RS^DPXMT 




R5,DPRCV 
R5,DPXMT 


SHIBSi 






MACYll 


30A(1052) 12-0CT-7 


?88ii??= 


§^18 




TRCHT: 
RCCHT: 




1 

OPEN 
OPEN 
.END 





^ANSWER 
JOFFSET 
UNSUER 
;OFFSET 

;ansher 

;OFFSET 
lANSHER 
;OFFSET 
>ANSWER 
;OFFSET 
;ANSHER 
;OFFSET 
;AHSUER 
;OFFSET 
;ANSHER 
>OFFSET 
;ANS»ER 

;dffset 

;ANSWER 
JOFFSET 
JAMSUER 
JOFFSET 
JANSUER 
JOFFSET 
J ANSWER 
JOFFSET 
JANSHBR 
JOFFSET 
JANSWER 
JOFFSET 
JANSWER 
JOFFSET 



LINE 1 RCV 
FOR LINE 1 
LINE 1 XMT 
FOR LINE 1 
LINE 2 RCV 
FOR LINE 2 
LINE 2 XMT 
FOR LINE 2 
LINE 3 RC? 
FOR LINE 3 
LINE 3 XMT 
FOR LINE 3 
LINE 4 RCV 
FOR LINE 4 
LINE 4 XMT 
FDR LINE 4 
LINE 5 RCV 
FOR LINE 5 
LINE 5 XMT 
FOR LINE 5 
LINE 6 RCV 
FOR LINE 6 
LINE 6 XMT 
FOR LINE 6 
LINE 7 RCV 
FOR LINE 7 
LINE 7 XMT 
FOR LINE 7 
LINE 8 RCV 
FOR LINE 8 
LINE 8 XMT 
FOR LINE 8 



INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 
INTR 



JPNTR REG TO TEST DEVICE ON LINE 

JSYNC CODE 

JUSED FOR COUNTER OF 64. 

JPOINTER FLAG WHICH WILL BRANCH TO 

JTEST STATUS OF ALL LINES AFTER 
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JCOMPLETING ONE LINE DATA TRANSFER 

;«HEN =a^ALL LINES HAVE BEEN TESTED 

JCOONTS DOWN FROM 16 WHEN CHECKING 

JDATA BUFFER REG. 

JWORD^ySED TO INCRAMENT XMTED DATA 

JSTORES WORD BEING CHECKED 

JXMT COUNT 

JRECEIVE COUNT 

JDP'S DONE COUNTER 

JNQ. OP'S SELECTED 
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mm 



Bins = 
i ?i = 

BIT9 = 
BREAK$= 



i 
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252 
526* 

208 
546 



319# 



) 



m \\% 



451 

638# 

458 

438* 

510* 



542 
453* 

522* 



646# 



643# 



IN 

M\ 

-.IM3 

LIN4 

.IMS 

IN6 

IH7 



mi 

lOOOR 



IS* 



It: 



t\ u?* 



607 
609 



611 
613 



615 
617 



619 
621 



623 
625 



627 
629 



631 
633 
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EXITS 
GEfPlS 



MAP22S= 

hodnIh 



000i06R 



hm 



'■imii 



001540R 
000120R 

imi 

02210R 



120R 

OO^^IOR 
002170R 



III 
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111! 



331 367 522 

§46 

469* 491* 498* 511* 

3?0* IP* 4ii 591# 

317 433 475 



200# 
473 



320* 

iW 

155 
186 
650 



574# 

274 286 



376* 
342* 



513 



394* 
343 



441 
345* 



459* 462 537* 

401 650# 

ill !§? m 

188 189 191 



503* 
354* 



175 
192 



516* 
356* 



577# 
375^ 



176 177 178 
193 202# 636 



179 

638 



180 
639 



181 
642 



182 
643 



mm 

OOOOQO 
Q00040 



202# 



545# 
228* 



285* 286 300* 



pRfV6 = 
PRTY7 = 
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002044R 
000246R 




206# 
381 

493 
195 

mi 

474* 
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392* 
396 



648# 

402 413# 



562# 



647# 



8o0104R 



579# 



355 
556f 



358# 
577# 



579# 



588# 



SQ9» 



S90# 



S9U 



S92# 



593# 



X°Sp'fE§!^(f" 'l2!gc\!?rflfE! "°°"^^ 
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000000 
002660 



000 
001 



5FQ ooia 



gigORs detected: o 

DEFAULT GLOBALS GEHERATEDi 

RUM-flME Rlfioi 15/4=3 6 
CORE OSEOI 7K (13 PAGES) 



